<%
dim c ,r
dim visitor_name, email, address, id, phone, user_name, user_pass, user_pass2
visitor_name=request.form("visitor_name")
email=request.form("email")
address=request.form("address")
id=request.form("id")
phone=request.form("phone")
user_name=request.form("user_name")
user_pass=request.form("user_pass")
user_pass2=request.form("user_pass2")
if id =nil then id="0"
if visitor_name=nil or email=nil or address=nil or phone=nil or user_name=nil or user_pass=nil or user_pass2=nil then
%>
| |
| , לא כל שדות החובה הוזנו |
| . אנא מלא את השדות ונסה שנית |
| לחץ כאן לתיקון השגיאה |
<%
else
'''''''''''''''''
set c=server.createobject("adodb.connection")
c.open DSN_NAME
set r=server.createobject("adodb.recordset")
sql="select * from club where user_name='" & user_name & "'"
r.open sql, c
''user name exist ?
if not r.eof or not r.bof then
r.close
set r=nothing
%>
| |
| , שם המשתמש שבחרת קיים כבר במערכת |
| . אנא החלף את שם המשתמש ונסה שנית |
| לחץ כאן לתיקון השגיאה |
| |
<%
else
if user_pass <> user_pass2 then
%>
| |
| , הסיסמה השניה אינה תואמת |
| . אנא תקן השגיאה ונסה שנית |
לחץ כאן לתיקון השגיאה
|
<%
else
sql="insert into club ( user_name, visitor_name, user_pass,email,address,phone,id )"
sql=sql & " select '" & user_name & "' as a, '"
sql=sql & visitor_name & "' as b, '"
sql=sql & user_pass & "' as c, '"
sql=sql & email & "' as d, '"
sql=sql & address & "' as e, '"
sql=sql & phone & "' as f, '"
sql=sql & id & "' as g"
c.execute sql
if not err then
'''''''''Auto send mail response!
SMTPServer = "sout.zahav.net.il"
strTO = email
msgSubject = "" & biz_name & "
" & visitor_name & ", שלום." & "
" & "תודה שהצטרפת למועדון הלקוחות שלנו." & "
שם המשתמש שלך:" & user_name & " - סיסמתך היא:" & user_pass & "
" & " כמו כן, תוכל\י לבקר בדף המבצעים שלנו ולהנות מהטבות מיוחדות. " & "
בכבוד רב, " & biz_name & "
"
set msg = Server.CreateOBject( "JMail.Message" )
'msg.Logging = true
msg.silent = true
'msg.LazySend = False
''''''''msg.Bcc = ""
msg.FromName = biz_name
msg.From = "site@shopcenter.co.il"
msg.AddRecipient strTO, ""
msg.Subject = "Thank you from " & biz_name
msg.Body = msgSubject
'msg.CharSet = "IL-ASCII"
msg.ContentType = "text/html"
msg.MailServerUserName = "shopc-1"
msg.MailServerPassWord = "vret5"
if not msg.Send( SMTPServer ) then
' Response.write "תודה רבה."
' Response.write "
Error Error
"
else
' Response.write "תודה רבה."
'Response.Write "
ok ok ok"
end if
set msg = Nothing
'''''''''END send mail response!
%>
| |
| תודה לך <%=visitor_name%> והמשך גלישה נעימה |
| לעמוד הראשי
|
<%
else
response.write "errrororor"
end if
end if
end if
end if
%>